home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / comm / fido / jamwlng.lha / fidolookup.welmat < prev    next >
Text File  |  1992-09-24  |  1KB  |  58 lines
  1. /* Fidolookup.welmat  For use with Welmat 0.52+ and AmigaUUCP 1.13+
  2.  *
  3.  *
  4.  * This script allows WELMAT to look up a phone number for a site using
  5.  * the Traplist.Library.
  6.  *
  7.  * James McOrmond  jam@Jammys.OCUnix.On.Ca
  8.  *                 Fidonet#1:163/165.0
  9.  */
  10.  
  11.  
  12.  Options RESULTS
  13.  Options failat 99999
  14.  
  15.  parse arg callsystem root
  16.  
  17.  say callsystem root
  18.  
  19.  parse var callsystem "fidonet#"system
  20.  say "system" system
  21.  
  22.  myhost=address()
  23.  
  24.  say "Trying to look up "||system||" for '"myhost"'"
  25.  
  26.  temp = FindNode(system, A)
  27.  say "'"system"'" temp
  28.               
  29.  parse var temp status" "zone":"net"/"node"."point","sysop","system","phone","city","pass","baud","cost","region","hub","flags
  30.  
  31.  if (status = 0) then Exit 1
  32.  
  33.   if (strip(root) == "remote") then do
  34.  
  35.      Address value myhost
  36.    'set remote.sysop "'||sysop||'" remote.sitename "'||system
  37.  
  38.      Address value myhost
  39.    'set  remote.number '||phone||' remote.domain fidonet'
  40.  
  41.      Address value myhost
  42.    'set remote.cost '||cost||' remote.maxbaud '||baud
  43.  
  44.      Address value myhost
  45.    'set remote.password '||pass||' remote.zone '||zone
  46.  
  47.      Address value myhost
  48.    'set remote.net '||net||' remote.node '||node||' remote.point '||point
  49.  
  50.    end
  51.   if (strip(root) == "test") then do
  52.     Address value myhost
  53.    'set test.password '||pass
  54.   end
  55.  
  56.  Exit 0
  57.  
  58.